home *** CD-ROM | disk | FTP | other *** search
/ Mesolore / Mesolore - Disc 2.iso / mac / data / Selden.dir / 00004_Script_Nav(scroll) Courtyard +1 < prev    next >
Text File  |  2001-03-05  |  365b  |  17 lines
  1. on mouseDown
  2.   GenLeaveCtyd
  3.   cursor 131
  4.   set ctr = 1
  5.   set cNum = integer(char 2 of the frameLabel)
  6.   repeat while the mouseDown or ctr = 1
  7.     set cNum = (cNum+1) mod 4
  8.     puppetTransition 11,2,30,0
  9.     goto ("C" & cNum)
  10.     startTimer
  11.     repeat while the timer < 30
  12.     end repeat
  13.     set ctr = ctr+1
  14.   end repeat
  15.   GenEnterCtyd
  16.   cursor 0
  17. end